home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1988-07-19 | 3.4 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 64 0a f4 20 3e 20 | 50 69 0d 00 6e 23 f4 20 |..d.. > |Pi..n#. |
|00000010| 41 75 74 68 6f 72 20 20 | 20 20 20 20 20 20 20 20 |Author | |
|00000020| 20 3a 20 47 20 4c 20 46 | 69 74 74 6f 6e 0d 00 78 | : G L F|itton..x|
|00000030| 28 f4 20 43 6f 70 79 72 | 69 67 68 74 20 20 20 20 |(. Copyr|ight |
|00000040| 20 20 20 20 3a 20 41 42 | 41 43 55 53 20 54 52 41 | : AB|ACUS TRA|
|00000050| 49 4e 49 4e 47 0d 00 82 | 27 f4 20 56 65 72 73 69 |INING...|'. Versi|
|00000060| 6f 6e 20 30 2e 30 30 20 | 20 20 20 20 3a 20 31 39 |on 0.00 | : 19|
|00000070| 74 68 20 4a 75 6c 79 20 | 31 39 38 38 0d 00 8c 05 |th July |1988....|
|00000080| 3a 0d 00 96 05 3a 0d 00 | a0 3c f4 20 46 69 6e 64 |:....:..|.<. Find|
|00000090| 73 20 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 70 |s the va|lue of p|
|000000a0| 69 20 74 6f 20 61 62 6f | 75 74 20 31 39 20 73 69 |i to abo|ut 19 si|
|000000b0| 67 6e 69 66 69 63 61 6e | 74 20 66 69 67 75 72 65 |gnifican|t figure|
|000000c0| 73 2e 0d 00 aa 33 f4 20 | 55 73 65 73 20 74 68 65 |s....3. |Uses the|
|000000d0| 20 46 6c 6f 61 74 69 6e | 67 20 50 6f 69 6e 74 20 | Floatin|g Point |
|000000e0| 45 6d 75 6c 61 74 6f 72 | 20 56 65 72 73 69 6f 6e |Emulator| Version|
|000000f0| 20 32 2e 35 30 0d 00 b4 | 34 f4 20 77 69 74 68 20 | 2.50...|4. with |
|00000100| 64 6f 75 62 6c 65 20 65 | 78 74 65 6e 64 65 64 20 |double e|xtended |
|00000110| 70 72 65 63 69 73 69 6f | 6e 20 61 6e 64 20 72 65 |precisio|n and re|
|00000120| 74 75 72 6e 73 20 74 68 | 65 0d 00 be 22 f4 20 61 |turns th|e...". a|
|00000130| 6e 73 77 65 72 20 61 73 | 20 61 20 31 39 20 64 69 |nswer as| a 19 di|
|00000140| 67 69 74 20 6e 75 6d 62 | 65 72 2e 0d 00 c8 05 3a |git numb|er.....:|
|00000150| 0d 00 d2 07 eb 20 30 0d | 00 dc 05 3a 0d 00 e6 26 |..... 0.|...:...&|
|00000160| f4 20 53 74 6f 72 65 20 | 74 68 65 20 6f 62 6a 65 |. Store |the obje|
|00000170| 63 74 20 63 6f 64 65 20 | 61 74 20 26 31 30 30 30 |ct code |at &1000|
|00000180| 30 2e 0d 00 f0 0e 73 69 | 7a 65 25 3d 26 31 30 30 |0.....si|ze%=&100|
|00000190| 0d 00 fa 0f de 20 64 75 | 6d 6d 79 31 25 20 30 0d |..... du|mmy1% 0.|
|000001a0| 01 04 22 de 20 64 75 6d | 6d 79 32 25 20 28 26 31 |..". dum|my2% (&1|
|000001b0| 30 30 30 30 2d 26 32 38 | 2d 64 75 6d 6d 79 31 25 |0000-&28|-dummy1%|
|000001c0| 29 0d 01 0e 11 de 20 63 | 6f 64 65 25 20 73 69 7a |)..... c|ode% siz|
|000001d0| 65 25 0d 01 18 05 3a 0d | 01 22 3d 65 6e 64 25 3d |e%....:.|."=end%=|
|000001e0| a4 5f 50 69 28 63 6f 64 | 65 25 29 20 20 20 20 20 |._Pi(cod|e%) |
|000001f0| 20 20 20 20 20 3a 20 f4 | 20 41 73 73 65 6d 62 6c | : .| Assembl|
|00000200| 65 20 74 68 65 20 63 6f | 64 65 20 61 74 20 26 31 |e the co|de at &1|
|00000210| 30 30 30 30 0d 01 2c 05 | 3a 0d 01 36 30 d6 20 63 |0000..,.|:..60. c|
|00000220| 6f 64 65 25 20 20 20 20 | 20 20 20 20 20 20 20 20 |ode% | |
|00000230| 20 20 20 20 20 3a 20 f4 | 20 46 69 6e 64 20 50 69 | : .| Find Pi|
|00000240| 20 61 73 20 70 62 63 64 | 2e 0d 01 40 05 3a 0d 01 | as pbcd|...@.:..|
|00000250| 4a 05 f1 0d 01 54 34 f4 | 20 53 68 6f 77 20 74 68 |J....T4.| Show th|
|00000260| 65 20 63 6f 64 65 20 61 | 73 20 64 69 73 61 73 73 |e code a|s disass|
|00000270| 65 6d 62 6c 65 64 20 62 | 79 20 74 68 65 20 44 65 |embled b|y the De|
|00000280| 62 75 67 67 65 72 2e 0d | 01 5e 22 ff 28 22 4d 45 |bugger..|.^".("ME|
|00000290| 4d 4f 52 59 49 20 22 2b | c3 7e 28 63 6f 64 65 25 |MORYI "+|.~(code%|
|000002a0| 29 2b 22 20 2b 32 43 22 | 29 0d 01 68 05 3a 0d 01 |)+" +2C"|)..h.:..|
|000002b0| 72 42 f4 20 55 6e 70 61 | 63 6b 20 74 68 65 20 70 |rB. Unpa|ck the p|
|000002c0| 62 63 64 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 50 |bcd vers|ion of P|
|000002d0| 69 20 61 6e 64 20 70 72 | 69 6e 74 20 61 6e 73 77 |i and pr|int answ|
|000002e0| 65 72 20 61 73 20 31 39 | 20 64 69 67 69 74 73 2e |er as 19| digits.|
|000002f0| 0d 01 7c 35 f1 20 27 22 | 54 68 65 20 76 61 6c 75 |..|5. '"|The valu|
|00000300| 65 20 6f 66 20 70 69 20 | 69 73 20 20 22 3b a4 5f |e of pi |is ";._|
|00000310| 46 70 41 73 73 5f 55 6e | 70 61 63 6b 28 70 62 63 |FpAss_Un|pack(pbc|
|00000320| 64 2c 31 39 29 0d 01 86 | 05 3a 0d 01 90 05 3a 0d |d,19)...|.:....:.|
|00000330| 01 9a 05 e0 0d 01 a4 05 | 3a 0d 01 ae 11 dd 20 a4 |........|:..... .|
|00000340| 5f 50 69 28 63 6f 64 65 | 25 29 0d 01 b8 05 3a 0d |_Pi(code|%)....:.|
|00000350| 01 c2 0d ea 20 73 70 2c | 6c 69 6e 6b 0d 01 cc 0b |.... sp,|link....|
|00000360| ea 20 70 61 73 73 25 0d | 01 d6 05 3a 0d 01 e0 44 |. pass%.|...:...D|
|00000370| 70 62 63 64 3d 63 6f 64 | 65 25 20 20 20 20 20 20 |pbcd=cod|e% |
|00000380| 20 20 20 20 20 20 20 20 | 20 20 20 3a 20 f4 20 41 | | : . A|
|00000390| 76 6f 69 64 20 61 6e 20 | 65 72 72 6f 72 20 6f 6e |void an |error on|
|000003a0| 20 74 68 65 20 66 69 72 | 73 74 20 70 61 73 73 2e | the fir|st pass.|
|000003b0| 0d 01 ea 05 3a 0d 01 f4 | 2a f4 20 41 52 4d 20 72 |....:...|*. ARM r|
|000003c0| 65 67 69 73 74 65 72 73 | 20 61 73 73 69 67 6e 65 |egisters| assigne|
|000003d0| 64 20 74 6f 20 76 61 72 | 69 61 62 6c 65 73 2e 0d |d to var|iables..|
|000003e0| 01 fe 31 f4 20 41 64 64 | 72 65 73 73 20 6f 66 20 |..1. Add|ress of |
|000003f0| 70 62 63 64 20 76 65 72 | 73 69 6f 6e 20 6f 66 20 |pbcd ver|sion of |
|00000400| 70 69 20 73 74 6f 72 65 | 64 20 69 6e 20 52 30 2e |pi store|d in R0.|
|00000410| 0d 02 08 37 73 70 20 20 | 20 20 20 20 20 3d 20 31 |...7sp | = 1|
|00000420| 33 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |3 | :|
|00000430| 20 f4 20 55 73 65 20 74 | 68 65 20 42 41 53 49 43 | . Use t|he BASIC|
|00000440| 20 73 74 61 63 6b 2e 0d | 02 12 36 6c 69 6e 6b 20 | stack..|..6link |
|00000450| 20 20 20 20 3d 20 31 34 | 20 20 20 20 20 20 20 20 | = 14| |
|00000460| 20 20 20 20 20 20 3a 20 | f4 20 4c 69 6e 6b 20 62 | : |. Link b|
|00000470| 61 63 6b 20 74 6f 20 42 | 41 53 49 43 2e 0d 02 1c |ack to B|ASIC....|
|00000480| 35 f4 20 46 6c 6f 61 74 | 69 6e 67 20 50 6f 69 6e |5. Float|ing Poin|
|00000490| 74 20 72 65 67 69 73 74 | 65 72 73 20 61 73 73 69 |t regist|ers assi|
|000004a0| 67 6e 65 64 20 74 6f 20 | 76 61 72 69 61 62 6c 65 |gned to |variable|
|000004b0| 73 2e 0d 02 26 21 f4 20 | 50 6f 6c 61 72 20 61 6e |s...&!. |Polar an|
|000004c0| 67 6c 65 20 20 20 73 74 | 6f 72 65 64 20 69 6e 20 |gle st|ored in |
|000004d0| 46 30 2e 0d 02 30 21 f4 | 20 78 20 63 6f 2d 6f 72 |F0...0!.| x co-or|
|000004e0| 64 69 6e 61 74 65 20 73 | 74 6f 72 65 64 20 69 6e |dinate s|tored in|
|000004f0| 20 46 31 2e 0d 02 3a 21 | f4 20 79 20 63 6f 2d 6f | F1...:!|. y co-o|
|00000500| 72 64 69 6e 61 74 65 20 | 73 74 6f 72 65 64 20 69 |rdinate |stored i|
|00000510| 6e 20 46 32 2e 0d 02 44 | 21 f4 20 56 61 6c 75 65 |n F2...D|!. Value|
|00000520| 20 6f 66 20 70 69 20 20 | 20 73 74 6f 72 65 64 20 | of pi | stored |
|00000530| 69 6e 20 46 33 2e 0d 02 | 4e 05 3a 0d 02 58 15 e3 |in F3...|N.:..X..|
|00000540| 20 70 61 73 73 25 3d 30 | 20 b8 20 33 20 88 20 33 | pass%=0| . 3 . 3|
|00000550| 0d 02 62 3d 50 25 3d 63 | 6f 64 65 25 20 20 20 20 |..b=P%=c|ode% |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | | :|
|00000570| 20 f4 20 4e 6f 74 20 75 | 73 69 6e 67 20 6f 66 66 | . Not u|sing off|
|00000580| 73 65 74 20 61 73 73 65 | 6d 62 6c 79 2e 0d 02 6c |set asse|mbly...l|
|00000590| 0e 5b 4f 50 54 20 70 61 | 73 73 25 0d 02 76 35 53 |.[OPT pa|ss%..v5S|
|000005a0| 54 4d 46 44 20 28 73 70 | 29 21 2c 7b 52 30 2d 52 |TMFD (sp|)!,{R0-R|
|000005b0| 31 32 2c 6c 69 6e 6b 7d | 20 20 3b 20 53 74 6f 72 |12,link}| ; Stor|
|000005c0| 65 20 41 52 4d 20 72 65 | 67 69 73 74 65 72 73 2e |e ARM re|gisters.|
|000005d0| 0d 02 80 27 45 51 55 44 | 20 26 45 45 30 38 41 31 |...'EQUD| &EE08A1|
|000005e0| 30 38 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |08 | ;|
|000005f0| 20 46 32 20 3d 20 30 0d | 02 8a 27 45 51 55 44 20 | F2 = 0.|..'EQUD |
|00000600| 26 45 45 31 38 39 31 30 | 39 20 20 20 20 20 20 20 |&EE18910|9 |
|00000610| 20 20 20 20 20 20 3b 20 | 46 31 20 3d 2d 31 0d 02 | ; |F1 =-1..|
|00000620| 94 2a 45 51 55 44 20 26 | 45 45 43 39 30 31 30 32 |.*EQUD &|EEC90102|
|00000630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 50 | | ; P|
|00000640| 4f 4c 28 2d 31 2e 30 29 | 0d 02 9e 28 45 51 55 44 |OL(-1.0)|...(EQUD|
|00000650| 20 26 45 45 30 38 42 31 | 30 30 20 20 20 20 20 20 | &EE08B1|00 |
|00000660| 20 20 20 20 20 20 20 3b | 20 46 33 20 3d 20 46 30 | ;| F3 = F0|
|00000670| 0d 02 a8 34 41 44 52 20 | 52 30 2c 70 62 63 64 20 |...4ADR |R0,pbcd |
|00000680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000690| 20 41 64 64 72 65 73 73 | 20 66 6f 72 20 61 6e 73 | Address| for ans|
|000006a0| 77 65 72 2e 0d 02 b2 2a | 45 51 55 44 20 26 45 43 |wer....*|EQUD &EC|
|000006b0| 43 30 42 31 30 30 20 20 | 20 20 20 20 20 20 20 20 |C0B100 | |
|000006c0| 20 20 20 3b 20 70 62 63 | 64 20 3d 20 46 33 0d 02 | ; pbc|d = F3..|
|000006d0| bc 2f 4c 44 4d 46 44 20 | 28 73 70 29 21 2c 7b 52 |./LDMFD |(sp)!,{R|
|000006e0| 30 2d 52 31 32 2c 50 43 | 7d 20 20 20 20 3b 20 42 |0-R12,PC|} ; B|
|000006f0| 61 63 6b 20 74 6f 20 42 | 41 53 49 43 2e 0d 02 c6 |ack to B|ASIC....|
|00000700| 09 2e 70 62 63 64 0d 02 | d0 34 45 51 55 44 20 30 |..pbcd..|.4EQUD 0|
|00000710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000720| 20 20 20 20 20 3b 20 41 | 6e 73 77 65 72 20 70 61 | ; A|nswer pa|
|00000730| 63 6b 65 64 20 68 65 72 | 65 2e 0d 02 da 0a 45 51 |cked her|e.....EQ|
|00000740| 55 44 20 30 0d 02 e4 0a | 45 51 55 44 20 30 0d 02 |UD 0....|EQUD 0..|
|00000750| ee 05 5d 0d 02 f8 0b ed | 20 70 61 73 73 25 0d 03 |..].....| pass%..|
|00000760| 02 05 3a 0d 03 0c 07 3d | 50 25 0d 03 16 05 3a 0d |..:....=|P%....:.|
|00000770| 03 20 26 dd 20 a4 5f 46 | 70 41 73 73 5f 55 6e 70 |. &. ._F|pAss_Unp|
|00000780| 61 63 6b 28 61 64 64 72 | 65 73 73 25 2c 64 69 67 |ack(addr|ess%,dig|
|00000790| 69 74 73 25 29 0d 03 2a | 48 f4 20 55 6e 70 61 63 |its%)..*|H. Unpac|
|000007a0| 6b 73 20 61 20 42 69 6e | 61 72 79 20 43 6f 64 65 |ks a Bin|ary Code|
|000007b0| 64 20 44 65 63 69 6d 61 | 6c 20 6e 75 6d 62 65 72 |d Decima|l number|
|000007c0| 20 77 68 69 63 68 20 69 | 73 20 73 74 6f 72 65 64 | which i|s stored|
|000007d0| 20 61 74 20 61 64 64 72 | 65 73 73 25 2e 0d 03 34 | at addr|ess%...4|
|000007e0| 3c f4 20 49 66 20 74 68 | 65 20 6e 75 6d 62 65 72 |<. If th|e number|
|000007f0| 20 63 61 6e 20 6e 6f 74 | 20 62 65 20 65 78 70 72 | can not| be expr|
|00000800| 65 73 73 65 64 20 69 6e | 20 3c 64 69 67 69 74 73 |essed in| <digits|
|00000810| 25 3e 20 64 69 67 69 74 | 73 0d 03 3e 31 f4 20 74 |%> digit|s..>1. t|
|00000820| 68 65 6e 20 69 74 20 69 | 73 20 72 65 74 75 72 6e |hen it i|s return|
|00000830| 65 64 20 69 6e 20 73 63 | 69 65 6e 74 69 66 69 63 |ed in sc|ientific|
|00000840| 20 6e 6f 74 61 74 69 6f | 6e 2e 0d 03 48 05 3a 0d | notatio|n...H.:.|
|00000850| 03 52 29 ea 20 62 63 64 | 24 2c 65 78 70 6f 6e 65 |.R). bcd|$,expone|
|00000860| 6e 74 24 2c 6d 61 6e 74 | 69 73 73 61 24 2c 6d 61 |nt$,mant|issa$,ma|
|00000870| 6e 74 69 73 73 61 31 24 | 0d 03 5c 27 ea 20 73 63 |ntissa1$|..\'. sc|
|00000880| 69 65 6e 74 69 66 69 63 | 24 2c 73 69 67 6e 24 2c |ientific|$,sign$,|
|00000890| 75 6e 70 61 63 6b 65 64 | 24 2c 77 6f 72 64 25 0d |unpacked|$,word%.|
|000008a0| 03 66 05 3a 0d 03 70 2c | f4 20 43 6f 6c 6c 65 63 |.f.:..p,|. Collec|
|000008b0| 74 20 74 68 65 20 70 62 | 63 64 20 6e 75 6d 62 65 |t the pb|cd numbe|
|000008c0| 72 20 66 72 6f 6d 20 61 | 64 64 72 65 73 73 25 2e |r from a|ddress%.|
|000008d0| 0d 03 7a 25 e3 20 77 6f | 72 64 25 3d 61 64 64 72 |..z%. wo|rd%=addr|
|000008e0| 65 73 73 25 20 b8 20 61 | 64 64 72 65 73 73 25 2b |ess% . a|ddress%+|
|000008f0| 38 20 88 20 34 0d 03 84 | 27 62 63 64 24 3d 62 63 |8 . 4...|'bcd$=bc|
|00000900| 64 24 2b c2 22 30 30 30 | 30 30 30 30 30 22 2b c3 |d$+."000|00000"+.|
|00000910| 7e 28 21 77 6f 72 64 25 | 29 2c 38 29 0d 03 8e 0b |~(!word%|),8)....|
|00000920| ed 20 77 6f 72 64 25 0d | 03 98 05 3a 0d 03 a2 2d |. word%.|...:...-|
|00000930| f4 20 53 70 6c 69 74 20 | 69 6e 74 6f 20 6d 61 6e |. Split |into man|
|00000940| 74 69 73 73 61 2c 20 65 | 78 70 6f 6e 65 6e 74 20 |tissa, e|xponent |
|00000950| 61 6e 64 20 73 69 67 6e | 2e 0d 03 ac 17 6d 61 6e |and sign|.....man|
|00000960| 74 69 73 73 61 24 3d c2 | 62 63 64 24 2c 31 39 29 |tissa$=.|bcd$,19)|
|00000970| 0d 03 b6 2f 6d 61 6e 74 | 69 73 73 61 31 24 3d c0 |.../mant|issa1$=.|
|00000980| 6d 61 6e 74 69 73 73 61 | 24 2c 31 29 2b 22 2e 22 |mantissa|$,1)+"."|
|00000990| 2b c2 6d 61 6e 74 69 73 | 73 61 24 2c 31 38 29 0d |+.mantis|sa$,18).|
|000009a0| 03 c0 18 65 78 70 6f 6e | 65 6e 74 24 3d c1 62 63 |...expon|ent$=.bc|
|000009b0| 64 24 2c 32 2c 34 29 0d | 03 ca 12 73 69 67 6e 24 |d$,2,4).|...sign$|
|000009c0| 3d c0 62 63 64 24 2c 31 | 29 0d 03 d4 05 3a 0d 03 |=.bcd$,1|)....:..|
|000009d0| de 2b f4 20 43 6f 6e 63 | 61 74 65 6e 61 74 65 20 |.+. Conc|atenate |
|000009e0| 69 6e 74 6f 20 73 63 69 | 65 6e 74 69 66 69 63 20 |into sci|entific |
|000009f0| 6e 6f 74 61 74 69 6f 6e | 2e 0d 03 e8 4c e7 20 a7 |notation|....L. .|
|00000a00| 22 38 43 22 2c 73 69 67 | 6e 24 29 20 8c 20 73 63 |"8C",sig|n$) . sc|
|00000a10| 69 65 6e 74 69 66 69 63 | 24 3d 22 2d 22 2b 6d 61 |ientific|$="-"+ma|
|00000a20| 6e 74 69 73 73 61 31 24 | 20 8b 20 73 63 69 65 6e |ntissa1$| . scien|
|00000a30| 74 69 66 69 63 24 3d 22 | 2b 22 2b 6d 61 6e 74 69 |tific$="|+"+manti|
|00000a40| 73 73 61 31 24 0d 03 f2 | 50 e7 20 a7 22 34 43 22 |ssa1$...|P. ."4C"|
|00000a50| 2c 73 69 67 6e 24 29 20 | 8c 20 73 63 69 65 6e 74 |,sign$) |. scient|
|00000a60| 69 66 69 63 24 2b 3d 22 | 20 45 2d 22 2b 65 78 70 |ific$+="| E-"+exp|
|00000a70| 6f 6e 65 6e 74 24 20 8b | 20 73 63 69 65 6e 74 69 |onent$ .| scienti|
|00000a80| 66 69 63 24 2b 3d 22 20 | 45 2b 22 2b 65 78 70 6f |fic$+=" |E+"+expo|
|00000a90| 6e 65 6e 74 24 0d 03 fc | 05 3a 0d 04 06 33 f4 20 |nent$...|.:...3. |
|00000aa0| 49 66 20 74 68 65 20 6e | 75 6d 62 65 72 20 68 61 |If the n|umber ha|
|00000ab0| 73 20 66 65 77 65 72 20 | 74 68 61 6e 20 3c 64 69 |s fewer |than <di|
|00000ac0| 67 69 74 73 25 3e 20 64 | 69 67 69 74 73 0d 04 10 |gits%> d|igits...|
|00000ad0| 38 f4 20 74 68 65 6e 20 | 75 73 65 20 73 74 61 6e |8. then |use stan|
|00000ae0| 64 61 72 64 20 72 61 74 | 68 65 72 20 74 68 61 6e |dard rat|her than|
|00000af0| 20 73 63 69 65 6e 74 69 | 66 69 63 20 6e 6f 74 61 | scienti|fic nota|
|00000b00| 74 69 6f 6e 2e 0d 04 1a | 1c e7 20 bb 28 65 78 70 |tion....|.. .(exp|
|00000b10| 6f 6e 65 6e 74 24 29 3c | 64 69 67 69 74 73 25 20 |onent$)<|digits% |
|00000b20| 8c 0d 04 24 25 6d 61 6e | 74 69 73 73 61 24 3d 6d |...$%man|tissa$=m|
|00000b30| 61 6e 74 69 73 73 61 24 | 2b c4 64 69 67 69 74 73 |antissa$|+.digits|
|00000b40| 25 2c 22 30 22 29 0d 04 | 2e 19 e7 20 a7 22 34 43 |%,"0")..|... ."4C|
|00000b50| 22 2c 73 69 67 6e 24 29 | 20 20 20 20 20 20 8c 0d |",sign$)| ..|
|00000b60| 04 38 31 75 6e 70 61 63 | 6b 65 64 24 3d 22 30 2e |.81unpac|ked$="0.|
|00000b70| 22 2b c4 bb 28 65 78 70 | 6f 6e 65 6e 74 24 29 2d |"+..(exp|onent$)-|
|00000b80| 31 2c 22 30 22 29 2b 6d | 61 6e 74 69 73 73 61 24 |1,"0")+m|antissa$|
|00000b90| 0d 04 42 05 cc 0d 04 4c | 47 75 6e 70 61 63 6b 65 |..B....L|Gunpacke|
|00000ba0| 64 24 3d c0 6d 61 6e 74 | 69 73 73 61 24 2c bb 28 |d$=.mant|issa$,.(|
|00000bb0| 65 78 70 6f 6e 65 6e 74 | 24 29 2b 31 29 2b 22 2e |exponent|$)+1)+".|
|00000bc0| 22 2b c1 6d 61 6e 74 69 | 73 73 61 24 2c bb 28 65 |"+.manti|ssa$,.(e|
|00000bd0| 78 70 6f 6e 65 6e 74 24 | 29 2b 32 29 0d 04 56 05 |xponent$|)+2)..V.|
|00000be0| cd 0d 04 60 05 3a 0d 04 | 6a 1b f4 20 53 74 72 69 |...`.:..|j.. Stri|
|00000bf0| 70 20 74 72 61 69 6c 69 | 6e 67 20 7a 65 72 6f 73 |p traili|ng zeros|
|00000c00| 2e 0d 04 74 05 f5 0d 04 | 7e 3e e7 20 c2 75 6e 70 |...t....|~>. .unp|
|00000c10| 61 63 6b 65 64 24 2c 31 | 29 3d 22 30 22 20 8c 20 |acked$,1|)="0" . |
|00000c20| 75 6e 70 61 63 6b 65 64 | 24 3d c0 75 6e 70 61 63 |unpacked|$=.unpac|
|00000c30| 6b 65 64 24 2c a9 28 75 | 6e 70 61 63 6b 65 64 24 |ked$,.(u|npacked$|
|00000c40| 29 2d 31 29 0d 04 88 18 | fd 20 c2 75 6e 70 61 63 |)-1)....|. .unpac|
|00000c50| 6b 65 64 24 2c 31 29 3c | 3e 22 30 22 0d 04 92 05 |ked$,1)<|>"0"....|
|00000c60| 3a 0d 04 9c 23 f4 20 53 | 74 72 69 70 20 74 72 61 |:...#. S|trip tra|
|00000c70| 69 6c 69 6e 67 20 64 65 | 63 69 6d 61 6c 20 70 6f |iling de|cimal po|
|00000c80| 69 6e 74 2e 0d 04 a6 3e | e7 20 c2 75 6e 70 61 63 |int....>|. .unpac|
|00000c90| 6b 65 64 24 2c 31 29 3d | 22 2e 22 20 8c 20 75 6e |ked$,1)=|"." . un|
|00000ca0| 70 61 63 6b 65 64 24 3d | c0 75 6e 70 61 63 6b 65 |packed$=|.unpacke|
|00000cb0| 64 24 2c a9 28 75 6e 70 | 61 63 6b 65 64 24 29 2d |d$,.(unp|acked$)-|
|00000cc0| 31 29 0d 04 b0 05 3a 0d | 04 ba 1d f4 20 41 66 66 |1)....:.|.... Aff|
|00000cd0| 69 78 20 74 68 65 20 63 | 6f 72 72 65 63 74 20 73 |ix the c|orrect s|
|00000ce0| 69 67 6e 2e 0d 04 c4 14 | e7 20 a7 22 38 43 22 2c |ign.....|. ."8C",|
|00000cf0| 73 69 67 6e 24 29 20 8c | 0d 04 ce 1b 75 6e 70 61 |sign$) .|....unpa|
|00000d00| 63 6b 65 64 24 3d 22 2d | 22 2b 75 6e 70 61 63 6b |cked$="-|"+unpack|
|00000d10| 65 64 24 0d 04 d8 05 cc | 0d 04 e2 1b 75 6e 70 61 |ed$.....|....unpa|
|00000d20| 63 6b 65 64 24 3d 22 2b | 22 2b 75 6e 70 61 63 6b |cked$="+|"+unpack|
|00000d30| 65 64 24 0d 04 ec 05 cd | 0d 04 f6 05 cc 0d 05 00 |ed$.....|........|
|00000d40| 19 75 6e 70 61 63 6b 65 | 64 24 3d 73 63 69 65 6e |.unpacke|d$=scien|
|00000d50| 74 69 66 69 63 24 0d 05 | 0a 05 cd 0d 05 14 0e 3d |tific$..|.......=|
|00000d60| 75 6e 70 61 63 6b 65 64 | 24 0d ff |unpacked|$.. |
+--------+-------------------------+-------------------------+--------+--------+
